---
title: "Coral Recruits Surveys"
format:
html:
theme: lux
self-contained: true
code-fold: true
toc: true
toc-depth: 3
toc-location: right
number-sections: true
number-depth: 3
---
```{r setup, message = F, warning = F, fig.width = 10, fig.height = 10, echo = F}
options(scipen = 999)
library(PristineSeasR)
library(bigrquery)
library(gt)
library(gtExtras)
library(tibble)
library(tidyverse)
library(dplyr)
library(ggplot2)
library(plotly)
library(lubridate)
knitr::opts_chunk$set(eval = F, warning = F, message = F, include = F, echo = F)
ps_paths <- PristineSeasR::get_sci_drive_paths()
prj_path <- file.path(ps_paths$projects, "legacy-db")
ps_data_path <- ps_paths$datasets
bigrquery::bq_auth(email = "marine.data.science@ngs.org")
project_id <- "pristine-seas"
bq_connection <- DBI::dbConnect(bigrquery::bigquery(),
project = project_id)
```
#### Coral Recruit Surveys